unit ConnLoginServerFrm;

interface

uses
  Classes, Controls, Forms, ExtCtrls, StdCtrls, JobWorkerThread;

type
  TfrmConnLoginServer = class(TForm)
    pnl1: TPanel;
    Image1: TImage;
    LBMsg: TLabel;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FDIJobWorkerProcess: TIJobWorkerProcess;
  public
    constructor Create(DIJobWorkerProcess: TIJobWorkerProcess); overload;
    { Public declarations }
  end;

var
  frmConnLoginServer: TfrmConnLoginServer;

implementation

{$R *.dfm}
constructor TfrmConnLoginServer.Create(DIJobWorkerProcess: TIJobWorkerProcess);
begin
  inherited Create(nil);
  FDIJobWorkerProcess := DIJobWorkerProcess;
end;

procedure TfrmConnLoginServer.Button2Click(Sender: TObject);
begin
  if Assigned(FDIJobWorkerProcess) then
    FDIJobWorkerProcess.CancelConnLoginServer;
end;

end.
